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STITLE (€’KAOS-MIP MIPSEND AND MISC ROUTINES”) 


NAME MIP_SEND_A 


Sincliude(:fl:propa.lit) 


os ‘we Noe Ne NON 


f 


7CMXSMipsend: 


7do-z 


Intel Corporation Proprietary Information. This 
supplied under the terms 
Corporation and may not hb 
accordance with the terms of the agreement. 


cf a license agreement 
e copied nor disclosed 


rvdeclare Request$queue$descriptor literally 


a 
7 


‘we Ss Ne We Ne Na Ne 


‘a Ne We Ne NO ON 


declare 


r 
Fd 
7 
. 
7 
e 
f 
rf 
/ 
e 
4 


,declare 


‘we “Sa Ne Ne NO Ne 


declare 


“RQ¢flac byte, 
RQflag2 byte, 
RQsize byte, 
RQESsize byte, 
GiveSindex byte, 
Give$Sstate byte, 
TakeSindex byte, 


ava 


TakeSstate byte “sz 


ceclare R@Entry$f1 literally 


RequestSid byte, 
SreSrequestsid byte, 
Destidevdid byte, 
Cestfiportfid byte, 


SreSdevsid byte, ”* 7 


RQEntrysfe literally 
Offset word, 

Cffset2 word, 

Length word, 

IDSSid byte, 
CuwnerSdev byte 77 


listing is 
with Intel 
except in 


RQEntryS$format literally ‘’RQEntry$f1 RQEntry$f27; 


a 


MIPEmscSformat Literally 
“Link pointer, 
Offset pointer, 
Length word, 
TOStid byte, 
Owneridev byte ; 


rceclare CQSMIPSidsSbhases (MaxSnoSsegments) structure( 


7 


a 
7 


base byte, 


length byte) external, 


rcdeclare CQ$mipDevicefinfol(Max$no$devices) structure ¢ 


, devid 


KAGS=MTP 


byte, 


MIPSEND ANE MISC RCUT 


INES 
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0010 
0020 
0040 
0080 
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O0C4 
0008 
0010 
00¢0 
0040 
00280 


0070 
0080 
0081 
0083 
0085 
O0E? 
Q089 


ewe ek ee ed ed a ee ek oe en a eo ow) eo eo ow] 
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+1 


GURCE 


G? 


Ne Ne Ne Ne Ne Ws 


status byte, 
RQCin pointer, 
RQDout 
Int$type byte, 
TimeStosSwait byte- 
IntSadr word ) external, 


pointer, 


rdeclare CI literally ’CQSMIPS$devices3info (Device) “7 


a 
4 
4 

e 
c 

a 
yf 

e 
tf 


“we “Ne Ne No Ne Ne Ne 


,declere 


a 
y 


declare CQ$MIPSuseS3permit (8) byte external, 


COSMIPSsend$utmbx (16) byte external, — 
COSMIPSremotegmbx (16) byte external, 
CQSMIPSsendach (16) byte external, 
CASThisdevice byte external, 


PortEtosmailbox (CMaxfnoSports) word external, 
SendSMsg (2) word external, 

Sendgresult byte external, 

Send3Sstate byte external, 

SendSdevice hyte external, 

Replyfwaiting literally ’2’, 

Non$fullSwaiting literally °1’, 


NoSsubsystems byte external, 
Subsystemlist (5) word external, 


SINCLUDEC:FISMIP.ECU) 


TERROR 
TBUSY 

PiRSI4 
TOISAB 
TEMPTY 
DISABG 
EMPTYF 


RQD RESULTS 
EQU 1H 
EQU 4H 
EGU 8H 

GU 10H 
EGU 2CH 
EQU 4CH 
EQU 8Ci 
EGU 1H 
EQU 4H 
EGU 8H 
EGU 1CH 
EU 2CH 
EGU 40H 
EQU 80} 


, 4 
* DEFINE MIP CMDS AND RESPONSES 


; 
CSEND 
SENTOK 
UNKNP 
ACTIVP 
INSUFM 
INACTP 
DEADP 


KACS=MIP 


ECU 7QH 
EG 8CH 
EGU 81H 
ECU 83H 
EGU 85H 

QU Sir 
EC 89H 
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MACRO 


mee ee we os 2 an ow oe oa ee A ee 


GHW Pond PO PM PO PD MED Po PM A AS A A Oe 
“OO ON OF VIP WP AP Ow ON ® UIE UP 


y DEFINE MIP-ISIS PARAMETERS 


? 
MYITDS 
THIODEV 


OGROUP 
DATA 


SEQ_NO 
DATA 


CGROUP 
CODE 


Seject 


KACSMIP 


GROUP 


EXTRN © 


GROUP 


SEGMENT 


ASSUM 


PUBLT 
EXTRN 
EXTRN 
EXTRN 


MIPS 


iz 


C 


ENS 


0 
c 


DATA 

BYTE PUBLIC “DATA’ 

COMIPCEVICEINFO:NEAR-CQTHISDEVICE: BYTE-CQMIPSENDAC8:NEAR 
COMIPSENDWTMBX:NEAR-SENDRESULT:BYTE,-SENDSTATES BYTE 
COMIPUSEPERMIT:NEAR,-PORTTOMAILBOX:NEAR/-SENDDEVICE: BYTE 
CQMIPDEVCNT: 8YTE-CQMIPDEVTCENTRY:NEAR 

SEQ_NO ° 

0 7 INIT VALUE DOES NOT MATTER 


CCOE 
BYTS PUBLIC “COoE” 
CS:CGROUP,DS:OGROUP 


MIPSEND-CALCDEVPTR-CALCDEVPTR2 
REQUESTGIVEPTRINEAR-RELEASEGIVEPTR:NEAR/-CQSEND:NEAR 
CERECEIVE:NEAR-CQSETALARM:NEAR,-CQCLEARALARM:NEAR 
CQOWAITSEM:NEAR,-CQSIGNAL:NEAR 
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coe 


C005 
C009 


C002 
0000 
COOF 
0011 
C015 
0017 


C019 
CO1A 
C018 
CO1C 


Q01F 
C021 


C022 
C024 


Coe 
0026 
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bed 


‘SE 


aE 
07 
58 
57 


3A26C00C 
751A 


B400 
C3c0 
&BD08 


&387000C 


a8C0 
7409 


50 
06 

5 6 
E80000 
3000 
C3 


2007 
C3 


06 


56 


m 


ERR Sac 


ed ed oe od 2 2d oO Wd 
tN OU GIG GI WN ON ta 
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I~ 
© 


MACRO ASSEMBLER 


RQCptr pointer, 

Rad based RCDptr structure(Requestqueuedescriptor), 
RQEptr pointer, 

RQEntry based RQEptr structure (RqentrySformat), 
GiveSstate byte, 

K pointer, 


sMIPSsends: 

MIPSEND PROC NEAR 
PCP DO: 7 RETURN ADR 
POP SI | . 
PCP ES > MSGPTR 
POP AX r SOCKET 
PUSH OT 


“we Ne Ne We WH Ne Ne Ns Ns Ne Ne Ne 


Noe 


Q) Ne Ne 


KAOS“MIP MIPSEND AND MISC ROUTINES 


procedure(Csocket,-Msgptr) byte public reentrant ,- 
daclare Dsocket word, 
Msgptr pointer, 
Msc based Msgptr structure(MipSmsg$format), 
Davice byte, 
Mailboxptr words 
Result byte, 
/x 
if destination is for a local port, then call the os send routine. 
xf 


Device = High(Csocket)s 
if Device = CQSThisfDevice then 
CMP AK-CQTHISCEVICE 
JNE a7 
cdo, . 
if (MailboxSptr:=PortStofmailbox(Low(Dsocket))) <> 0 then 
MOV | AH,0 7 FORM INDEX INTO PTOMB 
ACD AX, AX 
MCV 3X7 AX 
MOV AX,WORD PTR PORTTOMAILBOXCEBXI 
OR AX AX | 
JZ a8 
ado;7 
call CQ3Seand(Mailboxptr-Msgptr)-, 
PUSH AX 
PUSH ES 
PUSH SI 
CALL CCSEND 
return SENTOK,; 
MCV AL,OH 
RET 
end, 
else return INACTP, 
MCV AL,7H 
RET 
end? 
/* 
proceed if not busy, else block til not 
PUSH ES 
PLUSH oil 7 MSGPTR 
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0040 
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0045 
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B80000 E 
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58 
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BO86/8087/8088 MACRO ASSEMBLER 


XCHG AL, AH 
PUSH AX > SOCKET 
>, *f 
, call CQEWaitSsem(.CQSMIPSuseSpermit)- 
MOV AX,OFFSET OGROUP:CQMIPUSEPERMIT 
PUSH AX > 1 
CALL CQWAITSEM 
> [xk 
; now get entry in the Request queue to the right device 
? first get the RGD for the Request queue, 
> *f/ 
, RODptr = DIe~RQDouts 
> [x 
; now loop until we have put the item into the RQ or an error 
; (fatal types) occcurs. 
>, xf 
PCP BX 
-PUSH BX , GET SOCKET 
, Result = OFFH, 
7 do while Result = OFFH-, 
; /* 
, check device status 
; * / | 
; if not Di.stetus then Result = DEADP, 
CALL CALCDEVPTR2 , THIS ROUTINE CALCULATES THE DEV PTR 
a20:3 JE az1Aa | : 
JMP az > IF NOT EQUAL, THEN STATUS IS FALSE 
; else 
; dos 
; x 
; port is active, so try to get a RQE 
; x/ 
? disable; 
; . TOS => SOCKET-MSGPTR (2) 
wetA: INC 3X 7 INCR DEV PTR TO POINT TO STATUS BYTE 
Q20A: PUSH BX + SAVE DEVPTR. 
CLI ; 
; GiveSstate = Request$givesptr(.RQEptr,/DEVPTR): 
MCV DI, 3X 
CALL REGUESTGIVEPTR 
, if (Give$state and GERROR) = O then 
JNZ a12 
r do, 
; /* 
; there is an free RQE and we haves now fill it in 
, x/ 
; RQEntry.Request$Sid = CSEND-, 
MOV SYTE PTR ES: CBXI-70H 
MOV AL, SEQ_NO , INTASK WILL BUMP IT 
MCV ES: CBX+1]7AL 
; RQentry.Cest$devsid = Device, 
PCP mys Sie 7 DEVINFO 
POP AX 7 SOCKET 
POP Sz 7 MSGPTR “OFFSET 


KAOS"“MIP MIPSEND ANDO MISC ROUTINES 
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“we 


By) re No 


“we Ne We We Ne Ne Nsw Ne Ne Ns No Ne 


KACS~MIP 


ifn 


PCP ofa 7 MSGPTR ~B8ASE 
PUSH DI 
PUSH SI 
PUSH AX 
PUSH CX . 
RQEntry.CestSport$id = Low (Dsocket); 
MOV WORD PTR =ES:C3X+2HI,AX 7 DO BOTH 
RQEntry.SreSdev$id = CQtThis$device,s 
MCV CL,CQTHISDEVICE 
MCV BYTE PTR ES: CBXt4HI-CL 
Senddevice = Device, 
Sendfresult = Q, 
Sendfstate = ReplySwaiting, 
MCV SENDDEVICE-AL 
MCV WORD PTR SENOSTATE,O0C2H ry STORE RESULT AND STATE 
call Movb(aMNsq,0ffset,aRQéEntry.0ffset,3), 
PUSH DS 
MCV 0$,01 
LEA DI,-WORCD PTR CBXt5] 
Add SI-4 7 GET MSG QFFSET RIGHT 
MCV CX,4 ; 
CLO 
REP MOVSW 
PCP DS , 1 
ik 
now release the request queue 
x/ 
Givefstate = Release$gqiveSptr(DEVPTR), 
/x 
sicnal the destination device all the time 
x/ 
POP OT 
PUSH - OI 
CALL RELEASEGIVEPTR 
end, . 
JMP SHORT 413 
else 
if (GiveSstate and GFULL) <> 0 then SendSstate = Nonfullwaiting-, 
TEST AL,20H 
STI 
Jz az 
MOV WORD PTR SENDSTATE,-OO001H 
else 
do; 
/x 
device must be deads so leave 
x/ 


Ci.~status = FALSE,s 

Result = CEADP, 

goto Exit, 
ends 
/x ' 

wait for either reply or a full to not full transition 
*/ ' 
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ooc8 
coc3 
COCE 


COD0 
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OLIMIT 


GF) Ss Ne Ne Ne Ne Ns Ne 


KAQS“MEP 


enélble 
STi 
if Di.Timetowait <> OFFH then call CQSSet$alarm(CaceNIPsendech, 
PCP BX 
PUSH 3X 
MOV DL,CBX+0AH] 
CMP DL,OFFH 
Je NOLIMIT 
MCV DH,O 
Lea CX,WORD PTR CQMIPSENDACB 
PUSH DS , 1 
PUSH CX , 2 
MCV CX,OFFSET OGROUP:CQMIPSENODOWTMBX 
PUSH CX , 3 
PUSH DX 7 LENGTH 
MOV DL-OH 
PUSH DX 
CALL CGSETALARM : 
»~CQSMIPSsendSutmbx-double(Oi.aTimeftoSwait) -0); 
/x* 
wait for result 
x / 
K = CQ#Receivel(.~CQSMIPSsendSwtmbx) z 
MCV AX,OFFSET DGROUP:CQMIPSENDWTMBX 
PUSH — AX , 4 
CALL CGRECEIVE 
Call CeS$CleerSalarm(ACQMIPsendach)- 
LEA AX,WORD PTR CQMIPSENDACB 
PUS} DS , 1 
PUSH AX , 2 
CALL CECLEARALARM 
if Send$Result = O then 
LEA DI,OGROUP:SENDDEVICE 
CMP BYTE PTR CDIt2),0 , CHECK IF RESULT = OCG 
POP BX 7 DEV PTR 
JNZ 216 g 


do; /x timeout */ 


Di.status = FALSE,s 
ADD SP +6 7 7 EQUAL TO 3 POPS 
MCV 3YTE PTR (CBXI-0H 
Result = CEADP;, 
MOV AL, 89H 
end, 
JMP a21 
else 
dos 
/x 


something is on the mailbox. If waiting for a reply then 

it is the reply, else it is the full to not full transition 
x / 

if Send$state = ReplySwaiting then Result = SendSResult, 


CMP BYTE PTR COI+1I-72 
Jé a1éEA 
JMP 220 


MIPSENG ANC MISC ROUTINES 09/01/80 PAGE 


Loe 62d 


CODC &3C406 
CODF &A4502 


COE2 Cé06000C00 


COE? 50 
Q0E8 B80000 
OQEB 50 
QOEC £S0000 


GOEF 58 
CCFQ 247F 
OOF2 C3 


OOF3 8700 
§A87000C 


COF9 3108 
F6E1 
OOFD @8D8 
OOFF &D9FOOOC 
0103 807FQ1FF 
C107 C3 


8086/8087/ 8088 


m 
iW 
On 
—_ 


mt 
WG 
oo 
~Y 


S73 
396 
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+1 
+1 


V16A ACD SP +6 7 EQUALS 3 POPS 
MCV AL,AYTE PTR CLI+t2] + SEND RESULT 
? and; . 
? end, 
,vexit: 
; end, 
, [ek 
, now return permit to system and return to user 
> *f 
, SendSstate = OQ, 
221: . MOV SENDSTATE-OH 
, call CG$Signal(.CQSMIPSuseSpermit); 
PUSH AX > SAVE STATUS 
MOV AX,OFFSET DGROUP:SCQMIPUSEPERMIT 
PUSH AX , 1 
CALL CESIGNAL 
7 return Result and O7FH, 
PCP AX 
ANC AL, 7FH 
RET 
vend MIPSsend, 
MIOSEND ENDP 
; 
, THESE ROUTINES CALCULATE THE DEVICE PTR. 
7 AN INDEX INTC COMIPCEVTOENTRY IN BL. 
y THE INDEX INTO CGMITPDEVINFO IN AL. BOTH 
id 
CALCDEVPTR2: 
MOV BH,0O 
MCV AL,B8SYTE PTR CQMIPDEVTOENTRYCBXI 
CALCDEVPTEs: 
MCV CL,OQEH 
MUL CL 
MOV 3X7,AX 
Len BX,WORD PTR COMIPDEVICEINFOCBX) 
CMP BYTE PTR CBXt11-/OFFH 
RET 
CODE ENOS 
vend CMXSMipsend, 
STITLE (€’KAOS MIP MISC FUNCTIONS”) 
aoe ra Of 
KACS MIP MISC FUNCTIONS 


CALCDEVPTR2 DOES IT SASED ON 


CALCDEVPTR DOES IT BASED ON 
USE AX/CX, BX» AND SI 
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rc 
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qa 
'- 
re | 
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enor 413 


C10C 30F818 430 
C10F 7203 431 
0111 8001 432 
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,Subsystemtcall: 

, procedure(Cevid, Processid, Procptr) external, 
, declare Devid byte, 

v7 Processid wordy, 

, Procptr word, 

vend Subsystemfcall, 


DATA SEGMENT BYTE PUBLIC “DATA’ 


EXTRN NCSUBSYSTEMS:NEAR/SUBSYSTEMLIST:NEAR 
EXTRN COMIPREMOTEMBX?:NEAR 


DATA ENCS 


CCDe SEGMENT BYTE PUBLIC CODE" 
ASSUME CS:CGROUP,OS:0GROUP 


EXTRN SUBSYSTEMCALL:INEAR 


7MipsConnect: 
PUBLIC MIPCONNECT 


MIPCONNECT PRCC NEAR 
PCP DI 7 RETURN ADDRESS 
PCP AX 7 M3Bptr 
“PCP. 3X » PORTT 
PUSH DI | 


7 procedure€PortsMbptr) byte publics 
7 daclare Port byte, Mbptr word, 


> aif Port >= Maxfno$ports then return 17 


CMP 3BL,24 
J6 aX1 
MCV AL, 1H 
RET 
aX1: 
? PortStoSmailbox Port) = Mbptr, 
MCV BH,0 
ADD BX BX ; 
MOV WORD PTR PORTTOMAILBOXECBXI-AX 
ry return Cz 
XOR AX, AX 
RET 
vend MipSConnects. 
MIPCONNECT ENDP 


,MipSregister: 
PUBLIC MIPREGISTER 


MIPREGISTER PROC NEAR 
PCP DI 
POP Ax 
PUSH OT 


KACS MIP MISC FUNCTIONS 
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MACRO 


Mm 


SCURC 


'y procedure (Procftptr) bytes public, 


; declare Prec$ptr word, 


> if NoSsubsystems = 5 then return 17 
MCV SI,-OFFSET OGROUP:NOSUBSYSTEMS 
CMP 3YT= FTR CSII-5 
JNE DX2 
MOV AL +1 
RET 
aX2:3 
, SubsystemSlist(NoSsubsystems) = ProcS$ptr, 
MCV Bl,8YTE PTR CSTII 
MCV BH,OH 
ACD BX BX 
MOV WORD PTR SUBSYSTEMLISTC8XI,AX 
7, NoSsubsystems = Nofsubsystems + 17 
INC BYTE PTR CSII 
7 return QO,7 
XOR AX, AX 
RET 
7end MipSregister, 
MIPREGISTER ENDOP 
SEJECT 


~KACS MIP MISC FUNCTIONS 
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KACS MIP MISC FUNCTIONS 


er1i19 
SCURL 


r7i4iIP$set3Sasevicesstatus: 


PUBLIC MIPSETDEVICESTATUS 
MIPSETDEVICESTATUS PROC NEAR 
POP DI 3 
POP DX 7 STATE 
IPP BX 7 PORT 
PUSH DI 


, procedure (Deviceid, State) byte public, 
ry declare Deviceid byte, 


, Stete byte, 
> if Deviceid >= Max$no$devices then return 1, 
CMP 8L,10 
Js ax 
MOV AL+,1H 
RET 
ax3: 
, CQSMIPSdevicesinfo(CQsmipdevStosentry(Deviceid)).astatus = States 
CALL CALCDEVPTR2 
MOV BYTE PTR CBXt1I]-DL 
, return QO; 
MOV AL,OH 
RET 
vend MipSset$deviceSstatus, 
MIPSETOEVICESTATUS ENDP 


7MIPShHalt: 
PUBLIC MIPHALT 
MIPHALT FROC N=AR 
, procedure public, 
ry declare I byte, 
? RQCptr pointer, 
; Rad based RQDptr structure(Request$queue$descriptor), 
, do I = 0 te CQmipdevent-17 


XCR ~DX,OX 
aXx9: 
CMP DL,-CQmipdevecnt 
Je ax10 
; if CQSMIPS$devicefinfo(I).status then 
MCV AL, OL 
CALL CALCDEVPTR 
INC 3X 7 POINT TC STATUS 
MOV CH,0 
XCHG CH,B8YTE PTR EBX] 
OR CH,CH 
JZ aX11 
; doz 
, RQCptr = CGSMIPSDevicesSinfo (I) .RQDouts 
LES SI,DWORD PTR C8Xt5H]) 
; Rqd.aGiveSstate = OISABT, 
MCV BYTE PTR ES: CSIt5HI,40H 
; RQCptr = COSMIP$SdeviceSinfo(I) .RQDiIns 
LES SI,OWORD PTR CBXt1HI 
; Rad.e.TakeSstate = DISABG, 
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20386/2087/80838 


MACRO ASSEMBLER 


SCUERE = 
MCV BYTE PTR ES: CSIt+7HI-4CH 
; CQSMIPSdevicesSinfo(I).~status = FALSE; 
? end, 
, end, 
QaX11: 
TAC DL 
JMP ax 9 


vend MipShalt, 
aX10: RET 
MIPHALT ENDP 


Seject 
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Sob 


~ a 
Nout 


,7CRSMipstesk: 


COMIPTASK 


PUBLIC CQMIPTASK 
PROC NEAR 


, procedure public; 
; declare Recptr pointers 
; I byte, 
; Req based Readptr structure( 
7 Miptmegsformat, 
r rFrocessid word, 
; Cmd byte, 
; Response byte, 
7 ResponseSsocket word, 
; DeletedSprocessS$dev byte, 
; DeletedSprocessS$id word ), 
; Add$device based Reaptr structure( 
, MipsmsgSformat, 
? Processid word, 
; Cmd bkyte, 
, Respense byte, 
; Response$socket word, 
; Devid byte, 
; Status byte, 
? info (12) byte );7 
, cdo forever, 
axX12: 
; Reqotr = CQSreceive(.CQSMIP$remoteSmbx); y, : 
MOV AX,OFFSET DGROUP:CQMIPREMOTEMBX Pre 
PUSH AX Bee ee a 
CALL CERECEIVE 
PUSH WORD PTR £&S:CBX+10H) 
PUSH zS 7 SAVE REQPTR 
PUSH BX 
; Req.eResponse = O, 
MCV BYTE PTR ES: CBEXtOFHI-OH. 
; if Req.Cmd = 1 then . 
CMP 3YTE PTR ES: CBX+O0EHI-1H 
JNE aX5 
; dor /* Add device x/ 
7 if (CIl:=Add$device.edevid) >= HighestSdevice then Add$device.response = 17 
MOV ALES: CBXt+12H) 
CMP AL,10 
Ja aXx4S 
MCV ~~ BYTE PTR ES: CBXt+OQFHI,1H 
JMP aX 
aX6: 
; else 
? do, 
? TI = CQMipdevtoentry (I); 
; call Movb(2Addtdevice.devid ,OCQSMIPSdevice$infol(lI)-14), 
PLSH 3X ? SAVE PTR TO DEVIO 
KACS MIP MISC FUNCTIONS 09/01/80 PAGE 


14 


LOC C3J Lane SOU Ge 


C1A6 8AD8B 600 MOV BL, AL 
QO1A8 E848FF 601 Cal CALCDEVPTR2 ae 
C1AB &83F38 SCZ MCV DI,8X > DEST PTR INTO DEVINFO TABLE 
Q1AD &890E06 603 — MOV CX-14 , BYTES TC MOVE 
C130 56 604 PCP SI 
C131 8#@3¢0612 6C5 ACD $I-12H 
C134 1E 606 PUSH DS 
C135 1£& 6l7 PUSH OS 
01386 06 5028 PUSH = 
C187 1F 6C9 PCP DS 
0188 07 610 POP ES 
0139 FC 611 CLO 
O18A F3 512 REP MOVS8 
C18B A4 
C1BC 1F «613 POP DS 
614 ; ends 
615 ; end, 
~C1BD =B2A90 516 JMP &X& 
01C0 . 617 ax! 
618 ? else 
619 ; dors /x delete process */ 
620 ; do I = 0 te NoSsubsystems-1, 
01C0 8100 —6-621 MCV CL,O 
01C2 8A2E000C E 622 MCV CH,3YTE PTR NCSUBSYSTEMS 
C1C6 623 axt4: 
O1C6 58 624 PCP BX , GET BACK REQPTR 
01C7 O07 625 POP ES . | 
C1C8 06 626 . PUSH eS 
0109 53 | 627 PUSH BX 
CICA 3AE9 628 CMP CH, CL 
Q1CC 7418 629 JE aXxé 
620 ; call Subsystem$call (Req. .DeletedSprocess$dav,ReqsDeletedsSprocesssid, 
O1CE 34] Says < PUSH Cx 
G1ICF 26FF7712 632 PUSH WORD PTR ES: CBX+t+12H] 
OY0S 26FF 7743 633 PLSH WCRD PTR ES:C8X+12HI 
0107 8AD9 634 MOV BL,CL 
C109 0123 635 SHL 3X71 
6108 38700 636 MOV 3H,0 
C10D FFB7O000C e . 637 PUSH WCRD PTR SUBSYSTEMLISTE38XI-; 3 
C1E1 &80000 = 638 CALL SUB8SYSTEMCALL 


0124 29 639 PCP CX 


64C ; SubsystemSlist(I))-, 
5641 , end; 
O1&5 FEC 642 INC CL 
C1E7 £BDC 7 643 JMP axt4 
644 ; ends, 
GC1E9 | 645 VX83 
644 
647 , I = CQS$mipS$send(Req.Responsefsockets,Reqotr); 
C1E9 E814FE 648 CALL - MIPSEND 
649 7 ends 
C1EC ESSE 650 JMP 2X12 
- S54] 
652 r, end CQSMIPStasks 
653 COMIPTASK ENC? 
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654 vend Mip3miscs 
SSS 655 CCDE ENDS 
| 656 
657 
658 
659 END 


ASSEMBLY COMPLETE, NC ERRORS FOUND 
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